7 3 - 42 M 



DATA OUTPUT NO. 2 SUWXJTINE 
(Program 12.1) 



FUNCTION: 



To print one or more groups of numbers in decimal form. Each group has the 
same binal point location (q) , and all numbers are printed from consecutive memory 

locations . 

INPUT ; 

One or more groups of numbers to be printed, the initial location, the number 
of numbers in each group, and the binal point location (q) of each group. 



GALLING SEQUENCE: 



Location 

<< - 1 
oC 

<*■ + 1 
oc, + 2 

oc + 3 



Order 

B 
R 
U 
Z 



Address 

L(lst. No.) 

Lo + 5 

Lo 

N x q x 

N 2 q 2 



Niqi 



N i - 
imal) . 

printed. 



[(* + 1) + i] Z 
[(«*+ 1) + (i+l)J etc. 

number of words in group i. % is placed in the track position (in dec- 
1 < Ni < 63. oC- 1 must contain the address of the first number to be 



qi » binal point location of the i'th group. q i is placed in the sector posi- 
tion (in 



decimal) < q. < 31. 



OUTPUT: 



Printed decimal representations of the numbers specified. Each output number 
will consist of a sign (space or minus), eight (or more) decimal digits and the 
decimal point. A tab is given after each number. There will be q/U (rounded)* 
J printed integers unless the number to be printed will not fit at that J. If the 
number is too large, J is increased by enough to accommodate the number. The number 
of decimal places will be 8 - J (> 0) . If more than eight integers are needed to 
express the number, J will be increased and no decimal places will be printed. 



EXIT: 



The routine, exits to the first "non - Z" instruction. 
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EXAMPLE: 



•*' 



Location 


Order 


Address 




<* - 1 


xB 


2100 




c< 


xR 


Lo + 5 




<=< + 1 


xU 


Lo 




o(' + 2 


xZ 


0U07 


(1) 


£< + 3 


xZ 


1015 


(2) 


o<+ k 


xB 


etc. 


(3) 



The above calling sequence will cause this subroutine to : 

1. Print the contents of 2100, 01, 02, and 03 as +XX.XXXXXX or +XXX.XXXXX. 
J = 7 A (rounded) * 2. If one or more of these numbers is too large, J 
■will be increased to 3 for that number. 

2. Print the contents of 2101*, 05 13 as +XXXX.XXXX unless one or more of 

these numbers is too large. The number(sj which overflow J = k will be 
printed as +XXXXX.XXX. 

3. Exit to<*+ k, which is the first "non-Z" order following the calling 
sequence . 

PROGRAM STOPS ; 

None. 

ACCURACY: 

Output is exact (and rounded) for eight printed digits. When nine digits are 
printed, the output will be in error by 5 or 6 in the ninth place. 

STORAGE: 



160 l«cati«ns *f instructions- and- constants (2 l/2 tracks). 
No temporary storage. 

TIME ; 

Approximately 30 w«rds per minute. 

RANGE ; 

9 9 
The number to be printed raub-b-be -wiUiir* the range -10 -wN< 10 __ q must be with- 
in the range < q < 31 . 
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•Job Now 



_Pro<j. No.. 



/«?>/ Pr^. 




Proble 


« 2>#T4 




tf&r-/* 


<^ 


r 


^**-t S"c &jp&&rJfjT _J 




■— — ' — 


Tiock - — ■ — 


i Program Input 
Codes 

-!»' ■ -■■ 


a 



(A 


Location 


Instruction £ 
Op. Address v 


Contents of 
Address 


- ----- " ! 

Notes ' 

— ' 


1 ' ' 


/ 


X 






i 
I 


\/6od\ 










i 










_£> ^ .o.o 


_.. Xa^.^'- 




£A/r£& M?&*\ 





















1 






£J4/j?.3 < 


Xg<3<2<?3 























J2_ 






Ma.o.a^ • 






.' 



















3 






[t. . J 


X 


\ 





















4 






y\ * /. ^7 




la 6&0&n TV P/Z/Srf'\ 


i 



















5 






4r. . .J 




"j? " 7* //*&* \ 





















6 






£\a/#.9 


y£62>3/ 


7&//W US0 &_£> 





















7 






s\a/V3 


53 /&/f 


• 


-" 



















8 






riao./.6 




I 





















9 






.u\o.ZA.$ 




J 


















1 









A\0JS3 


/v-/ 


] 


















1 


1 






.^c/.vp 


53 y? s>6C* 


i 


















1 


2 






.M\ aa, &.2 


s@-2 


! 


















I 


3 






Aa/x6 


/ ^?^ C 7^ 


&L£) 


















1 


4 






Jl\(l lo.v 


L*cf/o c P 


ne^ I 


















1 


5 






v\6./ y.9 • 


53 


! 

i 


















1 


6 






A\&X2xi 


/£> •/•-/*. 


?3> 


L _j | 
















I 


7 






H\a/X3 


Aw ' A~^lf, 


. _■ 


r 

: 
! 
1.. -L ._ 
















1 


8 






.f^ad.k/ 


y 2: ^*3 




L_ 
















1 


9 






A\s./,S'X 


^*-0 &///j*r T* 


*3t£) 


















2 









.\?x<3.0SS 


j~f/Mr 




















2 


I 






i — ' / 1 * * * — 
.BfJXJ 


3<P £9 




















2 


2 






.dboj * 






















2 


3 






£\ a /X. 1 


, 53 




















2 


4 






Vf.0.3A 






















2 


5 






t A 3.2.0 M 


, 2>£-c- />r. 




















2 


6 






£x*/>yx 


-r<2/3# 


2sL>,y**+>& ^-s- 


















2 


7 






j1\oj2 y 


• 53 


J 


i 
















2 


8 






.^o.j.0.7 


-7&<*? 




j * 
















2 


9 






^JLoaj 3 


, Pje./A,rsr£c<. 


- cr& &z 


\ 
















3 







, . TO.Aol 






T . . . 1 














,3 


j_. . ... v\oAJ £> 


■ 53 ... . .._. 


















Cc 


>nd 


Itio 


nal 


St. 


sp Code 


tXJ fTarrioflra tt««< 


jrn 



Rov-cil MVBee Corpora Hon 
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Job No, 



-Prog. No* 



LGP-30 CODING SHEET Pnm» *L *i 6 

/•*■( pr CP . by yr^rt ck-d. H y r . & ^ n^ */- / r-j-7 



ProbU 


&4 


r/) 


tfo-rpor 


^^ J~* 


> /3 e<? " -r/'/i, £ 




I Ptoqram Input 
Codes 


a 




Location 


Instruction 
Op. Address c 


*• Contents of 
o Address 


Notes 


| 1 


/ 


=3 








t 






' ^ 


] 








^. ^. 3 . 2 


. . vJ/^.X4 
















3 


3 


. . '.5\ajL./A- 


- 5"^o ^/^ 


<) 












3 


4 


. . J\0jl> /j 


' ftey/vr 5VZ.& 


^ er€. ^ 


! 










3 


5 


. . .U\0.4.S£„ 


■ 53 














3 


6 


. . A^/fti 
















3 


7 


. . v\a/.s:<? 






' 










3 


8 


, . .P>\O.O.(e0 


/<^y 














3 


9 


. . m\/i./.i.I 


< 53 //i/^/ 














4 





. . lAo./Xf 






1 

\ 

1 , 










4 


1 


C. . .\ . . V 






r^ 










4 


2 


. . tf\oj.o.o 


/R/2 />* 7" C7>&* 


/CV" aT/L** 1 












4 


3 


. . &\0j A.1 


53 />*./ ^ 


P/L/4ST 












4 


4 


. . /l/|<5.2./.6 


/<? (?£ 3 / 












4 


5 


. . M\0fiM9 






i * .. 










4 


6 


■ X ^\ C -°'°-° 


si?4S/< 




i 










4 


7 


. ,X,fi\ OXX.o 


^J)c^/^^y , 


7/2./ /Vy £/L.j??£ r 


i — i — 










4 


8 


. . r,^/.j.^ 






i 










4 


9 


, . jS\a/j.? 


"/it/to-/ «~S(<s*' <<->■ 


<P J)fr0P S/&/V 


■ 










5 





, . J~/\<5./A.9 


/as<2' / /S? 


p/z/sisy 


• 










5 


I 


. . .oia.//£ 


53 "^ 














5 


2 


. . jJ\0./.£>0 


J>jQ/A>y .<?7A 


y£ ct/z-.J* / 












5 


3 


. . ./?j^/././ 


/ sY<?' / 














S 


4 


. . z>j£. . J 


/^ <®y<; 














5 


5 


. . >/]C . .1 


5^ jy/^r 




! 






/ 




5 


6 


. . .u/>jl.z.j . 








6P\/).fi7j'. 


1 




S 


7 




1 . . .1/ ' 


3<P39 














S 


8 




,...#. 


(oe-3/ 














5 


9 




, . . # , 


53 / <£>-?? 














6 





.?.<0 


<V.4<2>.0 . 


/<S>^ 














6 


1 




i ■ — ■ — 

1 . . J < 


3<& <£? 














6 


2 


JJ>& 


o\oo oo , 


y<&ji 






il.it 








6 


3 


i._. i . 


i , 


53 y^-z? 





Conditional Stop Code 



Carriage Return 



Royal M c Bee Corporation 
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Job No_ 



_Prog. No 



Problem . . 22^ 7fl 



LGP-30 CQOfNG SHEET 
/J> / Prep, by ~~yptJ^ . Ck'd 



Page ^j«W 



.Track- 





Program Input 
Codes 


a 




Location 


Instruction j 
Op. Address </ 


Conterrts o£ 
) Address 


Notes 




K™ - r~ 

1 


' 


53 
















*—* 














/;./ o,° 


£..:.. j . 


P*.,A,-r ST/t tXf tL~m~ -PI 



















1 


~7\aI\k/.w^J.Js*S.G 


& /<D°<&& 


TfHSiref z^&f 



















2 


<,O.t>.O\CP.0O 


/o'&y 























3 


hJ.6.<?\popD 


53 /a*& f 























4 


LwUdoPCP 


/£ 3<2>/j 























5 


/.If.fy.OPp 


/& y (p /£ 























6 


fT.Zjtyp.OP 


/a s <£>JZ# 























7 


.l.f.!\X*PP 


53 /ate*? 




■ 



















8 


Mj.AtrVoP 


/*!(& ax 




i 



















9 


2.\M/*f0f0 


/#?<£> 3 A 




















t 





. LyJ\l/.&SP 


/J f&36> 




















I 


1 


/ ' 7 


53 T€**# 




















1 


2 


7.\M.\a/\a/\\^\^mA<$ 


C /&<? 


TAZLg- a* stf/frs 


■ 
















1 


3 


/ .6PO\O.O0 P 


/&/ 




L 
















1 


4 


&4.d t #\aA6p 


/*4 




















1 


S 


</00P\O.0/>P 


53 / &3 




















1 


6 


. . /^U.^.2. 


/#&*?/ 




















I 


7 


. . £\0.oM6 


, x2l6>£>00 


T&//K? 7a T/LAa/tfifr 


















1 


8 


. . At 6 ¥7 


, x/?0Z^<? 




















1 


9 


. . r.x/ijoyj 


• 53 




















2 





. . .S\o.0.l.3 


/&<*f 






















2 


1 


. . A\AiaO 


, p&/#7'ST/e4& 


-- CT/Z& J 




















2 


2 


. . .U\0./<2// 
























2 


3 


. x ,2\G.&.o3 


- 53 1&J? 






















2 


4 


. x Z\p£P3 


Z>£4.4y 






















2 


5 


. . .Ty-, , J 


> St** >7~crt 


# _ re*** sr 




















2 


6 


. . u\oCMJ 








r£i 


C 





0\0 


Ofitf 


/ 






2 


7 


. . . | . . & 


, 53 /<&^ f 






















2 


8 


1\aJ\jl/LaJ\\a).U.{*J.6) 


' £~ST/IACTVR 






















2 


9 


C 1 

L . . . 1 , . .-> 


, //u&J To P/l'sk 


7~ 




















3 





. . .&\/.f.D.? 


Ts4&, 


<&*&/ */--> C3,cz 


—l 








1 










3 


1 


.__l...x £i£A.A?> 


53 /<£* «??... 
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Royal M9Bee Corporation 



Job No. 



-Prog 



LGP-30 CODING SHEET 
. No.__ZdL-^__Prep. by "~7?6«£^. 




Problem. 



p^TA (P6/^/ p ^ r ^ #. S*v£&4&^/^ =7 



Date_^/-/J>=> 



-Traclr , 



Program Input 
Codes 


a 
o 


Location 


Instruction £ 
Op. Address </j 


Contents of 
Address 


Notes 


I ; 


i 


71 


















i 


















^A 3 . 2 


. . Aa/¥1 > 


























3 


3 






.*#/.¥ 7 • 


























3 


4 






.fa/f.1 > 


" <£> 

A/Crri?-J3 
























3 


5 






*?.\o,ooj < 


71 /®J9aasc 


£> ^-4 </ 






















3 


6 






Sf^eJ > 


/(&JL?> 
























3 


7 






fxOJf/J > 


— -» 


P/A//Jt4£D Lo l T/~t 






















3 


8 






.//]^./.r.3 • 


/VC7tL.^3> 


£./za of 






















3 


9 






t/fj./tf > 


7 
























4 









•i.£\O0.6>p , 


£xr£,ACT4X 




i 




















4 


1 






fl\d.#&S > 


























4 


2 






AlfiZL.OJ 


























4 


3 






X ..S\£>.0 .0 P 


X/G/S' 




i 




















4 


4 






y^yff 


; f/o c t&m#) 






















4 


5 






£f*ii# 


TcOJ S" 


plu / rcf ^ ^ 






















4 


6 






dfjjs 




[ /^-S //"/Vs/v" 






















4 


7 






./?jr. . j 


71 ^4. 7*> T® 


/mT" 






















4 


8 






.UfJSP 


























4 


9 






x.^LZ.3,/ 


£X7AZ4CT*JL 
























S 









J\jj 2 .<? 


























5 


1 






7r\c.Z,/$ 


7 
























5 


2 






l>\o.l.2f 


























5 


3 


L 




! 1 
, j . , , -/ 


A/Cr/Ls&d^ 
























5 


4 






^oyy.f 


' P#./irf'4'4'V 
























5 


S 






2\a//<* 


, 71 Z* (j/Z/rr 


72/9JL£} 






















S 


6 






£\ojo / 


, jLa £/* c 7%i 


?/-/:) 






















5 


7 






. ./^j^./^.f 






! 




















5 


8 






. jjfjjj 


• / /l/a*/ 
























5 


9 






. sjr. . j 


. 7 /^ d 
























6 









. A\o.o.sr.? 


- /4<&Z/ 
























6 


1 






^rlo.oyj 




>/m?-/ ^•/T'. nfe/nr 






















6 


2 




; fe... 


UttZ: /W./ Too 








1 1 1 








t 


t 6 


3 


t-AJ&e 



Conditional Stop Code 



Carriage Return 
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Job Ro_ 



_Prog. No.. 



1AJ_ 



LGP-30 CODING SHEET Page 5 ot ,V 

^7^^ d. by /f V$V? Date ^-/^TZ 



.Prep. by. 



Problem. 



Z^7>^ ^ t/TpuT -ff? Sc'3tf6 is : 'M* 



.Track. 



Program Input 
Codes 



T 



^i 



u£ 



OA 



&6> 



d&> 



EL 



Location 



0^ ,° 



Instruction 
Op. Address 



c 



i 



2 



/>/?<? 



, ^ . /.^ 



V 



a^jp 



j 



^ ^g±£ 



Contents of 
Address 



Lcc f/a c pz h .« J. 



Notes 



/ #>-*L? 



/<? <?.?/ 



j>u>Aitoy a& o££ -Pf? / * r space' 



fa/fiT S/O-Ki 



SB±o£ '^^/a/vs 1. 



,U\C .££> 



U\QPP , 1 



El l&J&L 



&*£*/ 



■4 



OJ -3.° 



A \Q t o t s j 



/ &c2? 



Y\QPPf 



.UO.0.0S 



el 



S|4/,*/ 



J)uAi/^y ar-pf) ■ 



L 



J 



Pj?.//vr ZZM'jL £TAL # x 



'$- 



Jl 



OA 



&& 



6 



-4- 



A.aP\Q& 



o 



/ 



-j — l r_i_ 



Ji\fiA0 t 4 



Loc f/0 c Pte^ 



V\Q/M 



el 



£- 



/#& 3/ ± 2&\-Ay 



j^aaJLL 



Sf./^// 






tt£~Z £ : /v £ . 72 SL&L 



C\ Q£ i OS 



EL 



<o 



?fJt? 



doM ?i- £MlA/7 ' A/ 



>O\0S.S~f 



Ax*.*.?/ 



/ V<&3/ 



7b / S ?<?6/A'£> ±£± 7Z 1 



P^A.t? 



EL 



fiG'/sT 



Z£ 



P.J.? 



Bf.uV 



5pac£ 



dtf£ ff/V*?. To %„o; 



CfV,^ 



y>a 



^p./r.7 



El 



BfO.QS 



U£g£ To etir 



/t *V .? ,j g.. 



^ 



£. . J 



to/.W,O.0 



m /<&<?-/& #3 



Cond 



tlon<il Stop Cuds 



33 



t^\ l Carriage Return 

Royal M^Bee Corpora Hon 





%*w ^ «*^k_ 


fljDZ?£/v -OU 


,, m~ /*?'//? Pr«. b« r*|-k\ Ck»d. bv 


.Mji«j**je#«1 


PHthlam ^C, £f? V, 


'ii 




Program Input 
Codes 


a. 

2 Location 

w 


Instruction ° 
Op. Address w 


Contents of 
Address 


1 

Notes 


1 


, OZ Z3 


U OP. 34 ' 






] 




^7z\ 






0.2.3.2 . 


I ■ 
. .H.0J . J . 1 • 


1 rJn. 1 








3 3 


. .6'|0.a.y.& - 


/ fi. 








_ 3 4 


. .rjo.fiV.? ' 










3 5 


. .u.,o-ay.^ ' 


53 








,3,6 


. . i , , . ' 










3 7 


. Si0.0.£.9 ' 


J & SL9 








,3,8 


. .f,o.;a.y.6 - 










,39 


.x.pjo.s.o.y - 


53 Space 




i 




4 


. ./JiO. / .0.0 ' 






i 

j,. .t .. f i 




4 1 


. .Bin./ . /. / ' 


1 aJo. / 




l 

t . . . 




,4,2 


, .NJlO.,2. / ./& ' 


t() & 31 




i 




4 3 


. .r-llfl.f , / . 1 » 


53 




1 




4 4 


■ X.zhfl.fl , > .^ ' 






i , . . 




4 S 


. .l/ifl.a.tf.S 










4 6 


, .ftjfl./ , / . / 






i 




4 7 


. .L/iO.2.0.v< 


* 




\?,o>a 


9|tf, (?,<?,/ 


' 4 8 


J.\T,J\J,J,J,iJ 


■/so 




L...I 1 . 




■ 4 i 9 


, .B\0.j.r>.a 






1 

! 

III. 


.,.1 i i~ — «. 


5 


. . .L/iO.^l.3.7 










5 1 


■ . i. . ." i . . . 


. X 








5 2 


1 . ... .i — i — 
• . | , 










S 3 


. . . i . . . 










5 4 


1 










5 5 


• ..i... 


. 55 








,5,6 


1 -'■ ' — 










5 7 












5 8 












,5,9 


i . . . 


• 71 








,6 












,6,1 


■ ■ • i • ■ f 










6 2 
.... ., i . ..i. -,a , 


i 

. . 1 ■ ! . 








t i . . i 


6 3 
1 ' ' i * 1 — 


t 
l i i 1 i l i 


i^ 





Conditional Stop Coder 
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